home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MOVIES.DIR / 00065_Script_65 < prev    next >
Text File  |  1995-11-15  |  772b  |  28 lines
  1. on mouseDown
  2.   set mr = the movieRate of sprite 12
  3.   
  4.   set the movieRate of sprite 12 = 0
  5.   set len = the duration of cast (the castNum of sprite 12)
  6.   set w = the width of sprite 12
  7.   
  8.   set l = the left of sprite 12
  9.   set r = the right of sprite 12
  10.   
  11.   repeat while the mouseDown
  12.     set h = the mouseH
  13.     if h > r then set h = r
  14.     else if h < l then set h = l
  15.     
  16.     set the locH of sprite 15 = h
  17.     set the movieTime of sprite 12 = ((h-l)*len)/w
  18.     updateStage
  19.   end repeat
  20.   
  21.   if mr = 0 then
  22.     global gMovieLabel, gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP
  23.     do "set gMovieTime"&char 1 to 2 of gMovieLabel & " = the movieTime of sprite 12"
  24.     playMovie
  25.   else  
  26.     set the movieRate of sprite 12 = 1
  27.   end if
  28. end